﻿Public Class Usuarios

    Public Function Listar() As List(Of Banco.BE.Usuarios)
        Dim lista As New List(Of Banco.BE.Usuarios)
        Dim usuariosDs As New Banco.DS.Usuarios
        lista = usuariosDs.Listar
        Return lista
    End Function

    Sub Agregar(ByVal usuario As Banco.BE.Usuarios)
        Dim usuarioDs As Banco.DS.Usuarios
        usuarioDs = New Banco.DS.Usuarios
        usuarioDs.Agregar(usuario)
    End Sub

    Function Editar(ByVal usuario As Banco.BE.Usuarios) As Boolean
        Dim dsUsuario As Banco.DS.Usuarios
        dsUsuario = New Banco.DS.Usuarios
        Return dsUsuario.Editar(usuario)
    End Function

    Function Obtener(ByVal id As Integer) As Banco.BE.Usuarios
        Dim informacionDS As Banco.DS.Usuarios
        informacionDS = New Banco.DS.Usuarios
        Return informacionDS.Obtener(id)
    End Function


    Function CambiaEstado(ByVal estado As Banco.BE.Usuarios) As Boolean
        Dim mEstadoDS As Banco.DS.Usuarios
        mEstadoDS = New Banco.DS.Usuarios
        Return mEstadoDS.CambiaEstado(estado)
    End Function

    Function IniciarSecion(ByVal datos As Banco.BE.Usuarios) As Banco.BE.Usuarios
        Dim usuario As Banco.BE.Usuarios

        Dim mValidarDS As Banco.DS.Usuarios
        mValidarDS = New Banco.DS.Usuarios

        usuario = mValidarDS.IniciarSecion(datos)

        Return usuario
    End Function

    Public Function Activos() As List(Of Banco.BE.Usuarios)
        Dim lista As New List(Of Banco.BE.Usuarios)
        Dim usuariosDs As New Banco.DS.Usuarios
        lista = usuariosDs.Activo
        Return lista
    End Function

    Public Function Inactivos() As List(Of Banco.BE.Usuarios)
        Dim lista As New List(Of Banco.BE.Usuarios)
        Dim usuariosDs As New Banco.DS.Usuarios
        lista = usuariosDs.Inactivo
        Return lista
    End Function

    Function FiltrarIdentificacion(ByVal iden As String) As List(Of Banco.BE.Usuarios)
        Dim lista As New List(Of Banco.BE.Usuarios)
        Dim usuariosDs As New Banco.DS.Usuarios
        lista = usuariosDs.FiltrarIdentificacion(iden)
        Return lista
    End Function

    Function FiltrarNombres(ByVal nombre As String) As List(Of Banco.BE.Usuarios)
        Dim lista As New List(Of Banco.BE.Usuarios)
        Dim usuariosDs As New Banco.DS.Usuarios
        Dim nombrePorcentage As String = "%" + nombre + "%"
        lista = usuariosDs.FiltrarNombres(nombrePorcentage)
        Return lista
    End Function

    Function restriccion1(ByVal nombreUsuario As String) As Boolean
        Dim informacionDS As Banco.DS.Usuarios
        informacionDS = New Banco.DS.Usuarios
        Return informacionDS.restriccion1(nombreUsuario)
    End Function

End Class
